home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1989 July & August / rerun-1989-07-08.d64 / storybook 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  36 lines
  1. 5 print"[147]":fori=1to10:print:next:printspc(9)"poking the memory mover"
  2. 7 sa=53000:ck=0
  3. 8 form=0to212:read d
  4. 9 pokesa+m,d:ck=ck+d:next
  5. 10 data 32,253,174,32,138,173,32,247
  6. 11 data 183,132,195,133,196,32,253,174
  7. 12 data 32,138,173,32,247,183,132,193
  8. 13 data 133,194,32,253,174,32,235,183
  9. 14 data 138,240,8,120,165,1,72,41
  10. 15 data 253,133,1,24,165,20,101,193
  11. 16 data 133,20,165,21,101,194,133,21
  12. 17 data 160,0,177,195,145,193,230,195
  13. 18 data 208,2,230,196,230,193,208,4
  14. 19 data 230,194,240,20,165,194,197,21
  15. 20 data 208,232,165,193,197,20,208,226
  16. 21 data 138,240,4,104,133,1,88,96
  17. 22 data 136,208,245,0,0,0,0,0
  18. 23 data 0,32,155,183,134,254,162,0
  19. 24 data 169,0,133,250,133,252,138,72
  20. 25 data 162,32,160,128,165,254,208,6
  21. 26 data 134,251,132,253,240,4,134,253
  22. 27 data 132,251,104,170,188,212,207,169
  23. 28 data 64,197,250,208,10,169,63,197
  24. 29 data 251,240,43,197,253,240,39,177
  25. 30 data 250,145,252,165,254,208,4,169
  26. 31 data 0,145,250,138,72,174,220,207
  27. 32 data 202,208,253,104,170,165,250,24
  28. 33 data 105,8,133,250,133,252,144,207
  29. 34 data 230,251,230,253,208,201,232,224
  30. 35 data 8,208,165,96,0,4,2,6
  31. 36 data 1,5,3,7,1
  32. 37 p$="demo part 1":poke53281,0:poke53280,6
  33. 38 printchr$(19):fori=1to12:print:next:printspc(9)"loading story..."
  34. 39 print"[144]":print:print:print"load";chr$(34);p$;chr$(34);",8":print:print
  35. 40 print:print:print"run":printchr$(19):poke198,2:poke631,13:poke 632,13
  36.